package MyPackage;

use Log::Log4perl;

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(someMethod);

sub new
{
    my ($class) = shift;
    
    bless {}, $class;    
}

sub someMethod
{
    my $log = Log::Log4perl->get_logger("MyPackage");

    $log->debug("Debug message");
    $log->info("Info message");
    $log->error("Error message");
}

1;
__END__
